Mac Action 1996 January/mac-action-07.iso/mac/Inside Action/Total Distortion Big Demo/beBeatnk.Dxr/00385_movie.ls

Text File | 1995-06-05 | 1.5 KB | 99 lines

on InitBeatnikMan
  global BeatnikMan
  set BeatnikMan to birth(script "BeatnikMan.script")
end

on cleanupBeatnik
  puppetSprite(9, 0)
  puppetSound(0)
  go("exit")
end

on JumpPage n
  global NowBPage
  set NowBPage to n
  go(string(n))
end

on PutAway
  puppetSound(0)
  go("exit")
end

on BookHelp
  puppetSprite(9, 0)
  TagXPlace()
  go("help")
end

on initbook n
  global NowBPage, BPageMax
  set NowBPage to 1
  set BPageMax to n
end

on PageUp
  global NowBPage, BPageMax
  puppetSprite(9, 0)
  if NowBPage = BPageMax then
    exit
  else
    set NowBPage to NowBPage + 1
  end if
  puppetSound("BookPage.1")
  go(string(NowBPage))
end

on LastPage
  global NowBPage, BPageMax
  puppetSprite(9, 0)
  puppetSound("Kick.1")
  go(string(BPageMax))
  set NowBPage to BPageMax
end

on FirstPage
  global NowBPage, BPageMax
  puppetSprite(9, 0)
  puppetSound("Kick.1")
  go("1")
  set NowBPage to 1
end

on PageDN
  global NowBPage, BPageMax
  puppetSprite(9, 0)
  if NowBPage = 1 then
    exit
  else
    set NowBPage to NowBPage - 1
  end if
  puppetSound("BookPage.2")
  go(string(NowBPage))
end

on locSprite n
  set Where to the left of sprite n
  put ", " & the top of sprite n after Where
  return Where
end

on TagXPlace
  global Xframe, XMovie, XPath
  set Xframe to the frame
  set XPath to the pathName
  set XMovie to the movie
end

on goXplace
  global Xframe, XMovie, XPath
  if (XMovie = 0) or (Xframe = 0) then
    exit
  end if
  if (the pathName & the movie) = (XPath & XMovie) then
    go(Xframe)
  else
    go(Xframe, XPath & XMovie)
  end if
end